home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / slides.sda / SLIDESHOW MAKER (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  7KB  |  236 lines
  1. 100 DIM NA$(50),TY(50),CO(50)
  2. 110 DIM SN(50),SC(50),KP$(50),TR$(50)
  3. 120 POKE53280,6:POKE53281,1:POKE646,0
  4. 130 PRINT"[147]  THIS PROGRAM WILL HELP YOU SET UP A"
  5. 140 PRINT"  SLIDESHOW.  A SEQUENTIAL FILE NAMED"
  6. 150 PRINT"  'SET-UP' WILL BE CREATED.":PRINT
  7. 160 PRINT"  THE 'SET-UP' FILE WILL BE USED BY THE"
  8. 170 PRINT"  PROGRAM 'SHOW SLIDES'.":PRINT
  9. 180 PRINT"  NOW, PUT IN A DISK THAT YOU WILL WANT"
  10. 190 PRINT"  THIS SLIDSHOW ON, OR PUT IN A DISK"
  11. 200 PRINT"  WITH A FILE YOU WANT TO CHANGE, AND"
  12. 210 PRINT"  PRESS THE RETURN KEY.":PRINT
  13. 220 DIM CO$(15)
  14. 230 FOR I=0 TO 15: READ CO$(I):NEXT I
  15. 240 DATA "BLACK","WHITE","RED","CYAN","PURPLE","GREEN"
  16. 245 DATA "BLUE","YELLOW","ORANGE","BROWN","LT RED","DARK GRAY"
  17. 250 DATA "MED GRAY","LT GREEN","LT BLUE","LT GRAY"
  18. 260 DIM TN$(9)
  19. 270 FOR I=0 TO 9:READ TN$(I):NEXT I
  20. 280 DATA "END","KOALAPAINTER","DOODLE","FLYING COLORS","ULTRABASIC-64"
  21. 290 DATA "HES GRAPHICS","CADPAK-64","2 COLOR (32 BLKS)","TITLE","B/GRAPH"
  22. 300 GOSUB1060:GOSUB1130:IF E1>0 THEN300
  23. 310 IP=0:IS=0:PRINT"[147]  FIRST, WE'LL HAVE TO MAKE A LIST OF"
  24. 320 PRINT"  ALL THE GRAPHIC FILES TO BE INCLUDED"
  25. 330 PRINT"  IN THE SLIDESHOW.  I'LL TAKE THEM"
  26. 340 PRINT"  ONE AT A TIME.":PRINT
  27. 350 PRINT"  HERE ARE THE SLIDE TYPES:":PRINT
  28. 360 IP=IP+1:PRINT"  PICTURE FILE #";"";IP;"[146]":PRINT
  29. 370 FOR I=1 TO 9:PRINT"   "TN$(I);TAB(22);I:NEXT I
  30. 380 PRINT"   "TN$(0);TAB(22);0
  31. 390 PRINT:PRINT"         WHICH NUMBER ";TY(IP):PRINT"[145]"TAB(21);
  32. 400 GOSUB1380:INPUT A
  33. 410 IF A<0 OR A>9 THEN390
  34. 420 IF A=0 THEN N$="END":GOTO 560
  35. 430 PRINT:PRINT"   NOW ENTER THE NAME  ";NA$(IP):POKE646,0
  36. 440 GOSUB 1380:INPUT"[145]";N$
  37. 450 IF LEN(N$)<1THEN430
  38. 460 IF A>2THEN560
  39. 470 IF A>1THEN540
  40. 480 IF LEFT$(N$,1)=CHR$(129)THEN520
  41. 490 IF LEN(N$)<14THENN$=N$+" ":GOTO 490
  42. 500 IF LEN(N$)>14THENN$=LEFT$(N$,14)
  43. 510 N$=CHR$(129)+N$:GOTO 560
  44. 520 IF LEN(N$)<15THENN$=N$+" ":GOTO520
  45. 530 IF LEN(N$)>15THENN$=LEFT$(N$,15)
  46. 540 IF LEFT$(N$,2)<>"DD"THENN$="DD"+N$
  47. 550 IF RIGHT$(N$,1)=" "THENLN=LEN(N$):N$=LEFT$(N$,LN-1):GOTO 550
  48. 560 IF A<>7 THENCO(IP)=0:GOTO670
  49. 570 PRINT"[147]  WITH A BLACK/WHITE PICTURE, WE"
  50. 580 PRINT"  CAN ACTUALLY USE ANY TWO COLORS."
  51. 590 PRINT"  THESE ARE THE COLOR CODES:":PRINT
  52. 600 FOR I=0 TO 7:PRINT"    "I;TAB(7);CO$(I);TAB(22);I+8;TAB(26);CO$(I+8)
  53. 605 NEXTI:PRINT
  54. 610 C1=INT(CO(IP)/16):C2=CO(IP)-16*C1
  55. 620 PRINT"   FOREGROUND COLOR   "C1:PRINT"[145]"TAB(21);:GOSUB1380:INPUT C1
  56. 630 IF C1<0 OR C1>15THEN620
  57. 640 PRINT"   BACKGROUND COLOR   "C2:PRINT"[145]"TAB(21);:GOSUB1380:INPUT C2
  58. 650 IF C2<0 OR C2>15 OR C1=C2THEN640
  59. 660 CO(IP)=C1*16+C2
  60. 670 NA$(IP)=N$:TY(IP)=A:IF A>0THENPRINT"[147]":GOTO360
  61. 680 PRINT"[147]  NEXT, WE HAVE TO ARRANGE THE SLIDES"
  62. 690 PRINT"  IN ORDER AND SET UP PARAMETERS FOR"
  63. 700 PRINT"  EACH.  YOU HAVE A TOTAL OF"IP-1
  64. 710 PRINT"  FILES, WHICH CAN BE ARRANGED IN ANY"
  65. 720 PRINT"  ORDER.":PRINT
  66. 730 NP=IP:IS=0:IF DL=0 THEN:FOR I=1 TO 4000:NEXT:DL=1
  67. 740 IS=IS+1:PRINT"  HERE ARE THE FILES:":PRINT
  68. 750 FOR I=1 TO NP-1:PRINT"  "I;TAB(5);NA$(I);"[144]";TAB(22);TN$(TY(I)):NEXTI
  69. 760 PRINT"  "0;TAB(5);"END"
  70. 770 PRINT:PRINT"  WHICH ONE "SN(IS):PRINT"[145]"TAB(11);:GOSUB1380:INPUT S
  71. 780 IF S=0 THEN930
  72. 790 IF S<1 OR S>NP-1 THEN PRINT"[145][145]";:GOTO770
  73. 800 TT=SC(IS):IF TT<1 THEN TT=60
  74. 810 PRINT:PRINT"  DISPLAY IT HOW MANY SECONDS "TT:PRINT"[145]"TAB(29);
  75. 820 GOSUB1380:INPUT T
  76. 830 IF T<0 OR T>3600 THENPRINT"[145][145]";:GOTO 810
  77. 840 PRINT:PRINT"  NEXT SLIDE KEYED: AUTO[146] OR WAIT[146]"
  78. 850 W$=KP$(IS):IF W$<>"AUTO"AND W$<>"WAIT"THENW$="AUTO"
  79. 860 PRINT"    "W$"[157][157][157][157][157][157]";:INPUT K$
  80. 870 IF K$<>"AUTO"AND K$<>"WAIT"THENPRINT"[145][145][145]";:GOTO840
  81. 880 PRINT:PRINT"  TRANSITION: FADE[146] OR FAST[146]"
  82. 890 F$=TR$(IS):IF F$<>"FADE"ANDF$<>"FAST"THENF$="FAST"
  83. 900 PRINT"    "F$"[157][157][157][157][157][157]";:GOSUB1380:INPUT NF$
  84. 910 IF NF$<>"FADE"AND NF$<>"FAST"THENPRINT"[145][145][145]";:GOTO880
  85. 920 SN(IS)=S:SC(IS)=T:KP$(IS)=K$:TR$(IS)=NF$:GOTO740
  86. 930 NS=IS:SN(NS)=0:SC(NS)=0:KP$(NS)="END ":TR$(NS)="END "
  87. 940 PRINT"  DO YOU WANT TO REVIEW THIS? Y[146] OR N[146]"
  88. 950 GOSUB1060:IF K$="N"THEN980
  89. 960 PRINT"  PRESS RETURN[146] IF DATA IS OK."
  90. 970 GOTO 310
  91. 980 PRINT"  NOW PLACE INTO YOUR DISK DRIVE A DISK"
  92. 990 PRINT"  TO HOLD THE NEW SLIDESHOW SET-UP AND"
  93. 1000 PRINT"  PRESS ANY KEY."
  94. 1001 DATA00,00,00,00,00,00,00,0D
  95. 1002 DATA00,58,C1,5E,C1,66,C1,76
  96. 1003 DATAC1,83,C1,8F,C1,EA,EA,EA
  97. 1004 DATA4C,83,C0,A2,05,BD,1D,C0
  98. 1005 DATA95,73,CA,10,F8,60,A0,02
  99. 1006 DATAB9,00,02,D9,3C,C1,D0,0B
  100. 1007 DATA88,10,F5,A9,01,8D,10,C0
  101. 1008 DATA4C,1F,C1,60,A0,03,B9,00
  102. 1009 DATA02,D9,38,C1,D0,E0,88,10
  103. 1010 GOSUB1060
  104. 1011 DATAC1,60,A0,03,B9,00,02,D9
  105. 1012 DATA34,C1,D0,E0,88,10,F5,A0
  106. 1013 DATA05,B9,A2,E3,99,73,00,88
  107. 1014 DATA10,F7,A9,00,8D,18,D4,4C
  108. 1015 DATA1F,C1,E6,7A,D0,02,E6,7B
  109. 1016 DATA4C,79,00,A5,9D,F0,F3,A5
  110. 1017 DATA7A,C9,FF,D0,ED,A5,7B,C9
  111. 1018 DATA01,D0,E7,20,5A,C0,AD,00
  112. 1019 DATA02,20,A3,C0,90,DC,A0,00
  113. 1020 GOSUB1250
  114. 1021 DATA3A,10,02,38,60,18,60,C8
  115. 1022 DATAB1,7A,C9,20,D0,03,C8,D0
  116. 1023 DATAF7,B1,7A,60,18,C8,B1,7A
  117. 1024 DATAF0,35,C9,22,F0,F5,6D,05
  118. 1025 DATAC0,8D,05,C0,AD,06,C0,69
  119. 1026 DATA00,8D,06,C0,4C,BD,C0,18
  120. 1027 DATA6D,07,C0,8D,07,C0,90,03
  121. 1028 DATAEE,08,C0,EE,0B,C0,60,18
  122. 1029 DATA6D,0A,C0,8D,0A,C0,90,03
  123. 1030 PRINT"  YOUR FILE 'SET-UP' IS ALL SET UP."
  124. 1031 DATAA8,B9,11,C0,85,FB,B9,12
  125. 1032 DATAC0,85,FC,A0,00,A9,12,20
  126. 1033 DATAD2,FF,B1,FB,F0,06,20,D2
  127. 1034 DATAFF,C8,D0,F6,20,54,C3,20
  128. 1035 DATA7E,C3,20,E4,FF,F0,FB,A0
  129. 1036 DATA1B,B9,3F,C1,20,D2,FF,88
  130. 1037 DATA10,F7,68,68,A9,00,8D,00
  131. 1038 DATA02,4C,74,A4,4B,49,4C,4C
  132. 1039 DATA54,45,53,54,41,44,44,91
  133. 1040 STOP
  134. 1041 DATA20,20,20,20,20,20,20,20
  135. 1042 DATA20,20,20,20,20,20,91,0D
  136. 1043 DATA51,55,4F,54,45,00,4B,45
  137. 1044 DATA59,57,4F,52,44,00,23,20
  138. 1045 DATA4F,46,20,43,48,41,52,41
  139. 1046 DATA43,54,45,52,53,00,55,4E
  140. 1047 DATA49,44,45,4E,54,49,46,49
  141. 1048 DATA45,44,00,4E,4F,20,43,48
  142. 1049 DATA45,43,4B,53,55,4D,00,50
  143. 1050 REM**** WAIT FOR KEY PRESS****
  144. 1051 DATA49,53,00,C8,B1,7A,D0,FB
  145. 1052 DATA84,FD,C0,09,10,03,4C,C7
  146. 1053 DATAC1,88,88,88,88,88,B1,7A
  147. 1054 DATAC9,27,D0,13,A9,00,91,7A
  148. 1055 DATAC8,A2,00,B1,7A,9D,3C,03
  149. 1056 DATAC8,E8,E0,04,D0,F5,60,4C
  150. 1057 DATAF2,C2,A0,00,B9,00,02,99
  151. 1058 DATA40,03,F0,F2,C8,D0,F5,A0
  152. 1059 DATA00,B9,40,03,F0,E8,99,00
  153. 1060 G=0:GET K$:IF K$<>""THEN1060
  154. 1061 DATA56,C2,A0,0B,A9,00,99,03
  155. 1062 DATAC0,8D,3C,03,88,10,F7,A9
  156. 1063 DATA80,85,02,20,1B,C3,A0,00
  157. 1064 DATA20,9B,C1,20,CA,C1,20,31
  158. 1065 DATAC2,E6,7A,E6,7B,20,7C,A5
  159. 1066 DATAA0,00,20,AF,C0,F0,CD,24
  160. 1067 DATA02,F0,06,20,D7,C0,4C,12
  161. 1068 DATAC2,C9,22,D0,06,20,BC,C0
  162. 1069 DATA4C,12,C2,20,E7,C0,4C,12
  163. 1070 GET K$:G=G+1:IF G>100THEN1100
  164. 1071 DATAC0,C8,90,0A,18,6D,09,C0
  165. 1072 DATA8D,09,C0,4C,33,C2,88,A2
  166. 1073 DATA00,B9,00,02,9D,00,02,F0
  167. 1074 DATA04,E8,C8,D0,F4,60,18,AD
  168. 1075 DATA0B,C0,69,41,8D,0B,C0,38
  169. 1076 DATAAD,0C,C0,E9,19,90,06,8D
  170. 1077 DATA0C,C0,4C,60,C2,AD,0C,C0
  171. 1078 DATA69,41,8D,0C,C0,AD,05,C0
  172. 1079 DATA6D,07,C0,48,AD,06,C0,6D
  173. 1080 IF K$=""THEN1070
  174. 1081 DATAC0,8D,0D,C0,AD,0E,C0,6D
  175. 1082 DATA09,C0,8D,0E,C0,38,E9,19
  176. 1083 DATA90,06,8D,0E,C0,4C,96,C2
  177. 1084 DATAAD,0E,C0,69,41,8D,0E,C0
  178. 1085 DATAAD,0D,C0,E9,19,90,06,8D
  179. 1086 DATA0D,C0,4C,AB,C2,AD,0D,C0
  180. 1087 DATA69,41,8D,0D,C0,A0,01,AD
  181. 1088 DATA0B,C0,CD,3C,03,D0,20,C8
  182. 1089 DATAAD,0C,C0,CD,3D,03,D0,17
  183. 1090 RETURN
  184. 1091 DATA0E,AD,0E,C0,CD,3F,03,D0
  185. 1092 DATA06,20,64,C3,4C,7A,C0,AD
  186. 1093 DATA10,C0,D0,11,98,48,68,4C
  187. 1094 DATAF7,C0,AD,10,C0,F0,01,60
  188. 1095 DATAA9,04,4C,F7,C0,A4,FD,A9
  189. 1096 DATA27,91,7A,A2,00,C8,BD,0B
  190. 1097 DATAC0,91,7A,C8,E8,E0,04,D0
  191. 1098 DATAF5,A9,00,91,7A,20,64,C3
  192. 1099 DATA4C,7A,C0,A0,00,B9,00,02
  193. 1100 GOSUB1380
  194. 1101 DATAC0,C9,29,D0,03,EE,04,C0
  195. 1102 DATAC8,D0,EA,AD,03,C0,CD,04
  196. 1103 DATAC0,D0,01,60,A9,05,4C,F7
  197. 1104 DATAC0,A9,20,8D,00,D4,8D,01
  198. 1105 DATAD4,A9,09,8D,05,D4,A9,0F
  199. 1106 DATA8D,18,D4,60,20,41,C3,A9
  200. 1107 DATA81,20,77,C3,A9,80,20,77
  201. 1108 DATAC3,4C,71,C3,20,41,C3,A9
  202. 1109 DATA11,20,77,C3,A9,10,20,77
  203. 1110 G=0:GOTO 1070
  204. 1111 DATA04,D4,A2,70,A0,00,88,D0
  205. 1112 DATAFD,CA,D0,FA,60,END
  206. 1120 REM**** GET SEQUENTIAL FILE****
  207. 1130 CLOSE 15:OPEN 15,8,15
  208. 1140 OPEN2,8,2,"0:SET-UP,S,R"
  209. 1150 INPUT#15,E1,E2$,E3,E4
  210. 1160 IF E1>0 THENPRINT"  "E2$"[146]":IF E1<>62 THEN1230
  211. 1170 IF E1=62THENE1=0:GOTO1230
  212. 1180 INPUT#2,Z$:NP=0:NS=0
  213. 1190 A1$="":INPUT#2,A1$,A2$,A3$:IF A1$="END"OR A1$=""THEN1210
  214. 1200 NP=NP+1:NA$(NP)=A1$:TY(NP)=VAL(A2$):CO(NP)=VAL(A3$):GOTO1190
  215. 1210 A1$="":INPUT#2,A1$,A2$,A3$,A4$:IF A1$="END"OR A1$=""THEN1230
  216. 1220 NS=NS+1:SN(NS)=VAL(A1$):SC(NS)=VAL(A2$)
  217. 1225 KP$(NS)=A3$:TR$(NS)=A4$:GOTO1210
  218. 1230 CLOSE 2:RETURN
  219. 1240 REM*** WRITE SEQUENTIAL FILE****
  220. 1250 CLOSE 15:OPEN15,8,15
  221. 1260 PRINT#15,"S0:SET-UP,S"
  222. 1270 INPUT#15,E1,E2$,E3,E4
  223. 1280 IF E1>1THENPRINT"  "E2$"[146]":GOTO 1360
  224. 1290 IF E1=62THENE1=0
  225. 1300 OPEN2,8,2,"0:SET-UP,S,W"
  226. 1310 INPUT#15,E1,E2$,E3,E4
  227. 1320 IF E1>0THENPRINT"  "E2$"[146]":IF E1<>62THEN1360
  228. 1330 PRINT#2,"SLIDESHOW SET-UP"
  229. 1340 FORI=1TONP:PRINT#2,NA$(I)","TY(I)","CO(I):NEXTI
  230. 1350 FOR I=1TONS:PRINT#2,SN(I)","SC(I)","KP$(I)","TR$(I):NEXTI
  231. 1360 CLOSE2:RETURN
  232. 1370 REM**** RING A BELL TONE*****
  233. 1380 G=54272:POKEG+24,15:POKEG+1,110
  234. 1385 POKEG+5,9:POKEG+6,9:POKEG+4,17:POKEG+4,16
  235. 1390 RETURN
  236.